home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / xmargs.tcl < prev   
Encoding:
Text File  |  1995-07-20  |  585 b   |  36 lines
  1. # CVS $Id: xmargs.tcl,v 1.1 1995/02/03 17:16:00 zibi Exp $
  2.  
  3. proc quitCB {cbs} {
  4.     VtClose
  5. }
  6.  
  7. proc pbCB {cbs} {
  8.     global tog i
  9.  
  10.     incr i
  11.     VtSetValues $tog -xmArgs [list XmNlabelString "setvalsCB $i"]
  12. }
  13.  
  14. set i 0
  15.  
  16. set app [VtOpen xmargs]
  17.  
  18. set form [VtFormDialog $app.form]
  19.  
  20. set tog [VtToggleButton $form.tog \
  21.     -xmArgs "XmNset 1 XmNlabelString create"]
  22.  
  23. VtSetValues $tog -xmArgs [list XmNlabelString setvals]
  24.  
  25. set pb [VtPushButton $form.pb \
  26.     -callback pbCB \
  27.     -label "Do SetVals on xmArgs"]
  28.  
  29. set quit [VtPushButton $form.quit \
  30.     -callback quitCB \
  31.     -label "Exit"]
  32.  
  33. VtShow $form
  34. VtMainLoop
  35.  
  36.